;
; Fifa Internation Soccer - Amiga
; Install Script
;
;
; (c)1994 Visual Sciences Ltd.
; (c)1993/94 Electronic Arts Ltd.
;etc, etc.

(if (= @language "English")
(
	(set #default_language
		(cat	"0")
	)
	(set #WhereOnDisk
		(cat	"\n\nIn which disk or drawer should FIFA International Soccer be installed?")
	)
	(set #DiskInsert1
		(cat	"Please insert the disk labeled \"FIFA International Soccer Disk 1\".")
	)
	(set #DiskInsert1Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 1\" into your system.")
	)
	(set #DiskInsert2
		(cat	"Please insert the disk labeled \"FIFA International Soccer Disk 2\".")
	)
	(set #DiskInsert2Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 2\" into your system.")
	)
	(set #DiskInsert3
		(cat	"Please insert the disk labeled \"FIFA International Soccer Disk 3\".")
	)
	(set #DiskInsert3Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 3\" into your system.")
	)
	(set #InstallationComplete
		(cat	"Installation Complete\nPlease Remove all FIFA International Soccer Disks from floppy drive(s)\nand\nRESET the machine\n"	)
	)
	(set #InstallationCompleteHelp
		(cat	"Installation is unable to complete while any FIFA International Soccer Disks remain in the drive(s)")
	)
)
)

(if (= @language "Espaol")
(
	(set #default_language
		(cat	"0")
	)
	(set #WhereOnDisk
		(cat	"\n\nIn which disk or drawer should FIFA International Soccer be installed?")
	)
	(set #DiskInsert1
		(cat	"Please insert the disk labeled \"FIFA International Soccer Disk 1\".")
	)
	(set #DiskInsert1Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 1\" into your system.")
	)
	(set #DiskInsert2
		(cat	"Please insert the disk labeled \"FIFA International Soccer Disk 2\".")
	)
	(set #DiskInsert2Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 2\" into your system.")
	)
	(set #DiskInsert3
		(cat	"Please insert the disk labeled \"FIFA International Soccer Disk 3\".")
	)
	(set #DiskInsert3Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 3\" into your system.")
	)
	(set #InstallationComplete
		(cat	"Installation Complete\nPlease Remove all FIFA International Soccer Disks from floppy drive(s)"	)
	)
	(set #InstallationCompleteHelp
		(cat	"Installation is unable to complete while any FIFA International Soccer Disks remain in the drive(s)")
	)
)
)

(if (= @language "Deutch")
(
	(set #default_language
		(cat	"2")
	)
	(set #WhereOnDisk
		(cat	"\n\nAuf welchem Laufwerk/in welchem Verzeichnis soll FIFA International Soccer installiert werden ?")
	)
	(set #DiskInsert1
		(cat	"Programm bentigt die Diskette mit der Bezeichnung \"FIFA International Soccer Disk 1\".")
	)
	(set #DiskInsert1Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 1\" into your system.")
	)
	(set #DiskInsert2
		(cat	"Programm bentigt die Diskette mit der Bezeichnung \"FIFA International Soccer Disk 2\".")
	)
	(set #DiskInsert2Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 2\" into your system.")
	)
	(set #DiskInsert3
		(cat	"Programm bentigt die Diskette mit der Bezeichnung \"FIFA International Soccer Disk 3\".")
	)
	(set #DiskInsert3Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 3\" into your system.")
	)
	(set #InstallationComplete
		(cat	"Installation vollstndig.\n\nBitte alle Disketten von FIFA International Soccer aus den Laufwerken nehmen")
	)
	(set #InstallationCompleteHelp
		(cat	"Programm kann die Installation nicht beenden, whrend noch Disketten von FIFA International Soccer in den Laufwerken stecken")
	)
)
)

(if (= @language "Franais")
(
	(set #default_language
		(cat	"3")
	)
	(set #WhereOnDisk
		(cat	"\n\nIndiquez le disque ou le tiroir dans lequel FIFA International Soccer doit tre install :")
	)
	(set #DiskInsert1
		(cat	"Veuillez insrer la disquette tiquete \"FIFA International Soccer Disk 1\".")
	)
	(set #DiskInsert1Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 1\" into your system.")
	)
	(set #DiskInsert2
		(cat	"Veuillez insrer la disquette tiquete \"FIFA International Soccer Disk 2\".")
	)
	(set #DiskInsert2Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 2\" into your system.")
	)
	(set #DiskInsert3
		(cat	"Veuillez insrer la disquette tiquete \"FIFA International Soccer Disk 3\".")
	)
	(set #DiskInsert3Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 3\" into your system.")
	)
	(set #InstallationComplete
		(cat	"Installation termine. Sortez toutes les disquettes de FIFA International Soccer du ou des lecteur(s).")
	)
	(set #InstallationCompleteHelp
		(cat	"L'installation ne peut tre mene  bien si vous laissez des disquettes de FIFA International Soccer dans le ou les lecteur(s).")
	)
)
)

(if (= @language "Italiano")
(
	(set #default_language
		(cat	"4")
	)
	(set #WhereOnDisk
		(cat	"\n\nSu quale disco o in quale cassetto deve essere installato FIFA International Soccer?")
	)
	(set #DiskInsert1
		(cat	"Inserisci il volume contrassegnato \"FIFA International Soccer Disk 1\".")
	)
	(set #DiskInsert1Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 1\" into your system.")
	)
	(set #DiskInsert2
		(cat	"Inserisci il volume contrassegnato \"FIFA International Soccer Disk 2\".")
	)
	(set #DiskInsert2Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 2\" into your system.")
	)
	(set #DiskInsert3
		(cat	"Inserisci il volume contrassegnato \"FIFA International Soccer Disk 3\".")
	)
	(set #DiskInsert3Help
		(cat	"The FIFA International Soccer game will be copied "
			"from the \"FIFA International Soccer Disk 3\" into your system.")
	)
	(set #InstallationComplete
		(cat	"Installazione completa.  Estrai tutti i dischi FIFA International Soccer dalla/e unit a disco")
	)
	(set #InstallationCompleteHelp
		(cat	"L'installazione non pu essere completata finch non vengono estratti tutti i dischi FIFA International Soccer dalla/e unit a disco")
	)
)
)

; Ensure on error clause will clean up
(onerror
	(makeassign "fifa_1" (safe))
	(makeassign "fifa_2" (safe))
	(makeassign "fifa_3" (safe))
)

; Set Percentage bar now
(complete 0)

; Get rid of the assigns
; just in case the installation was restarted
(makeassign "fifa_1" (safe))		; start fresh
(makeassign "fifa_2" (safe))
(makeassign "fifa_3" (safe))

(set fifa_dest
	(tackon
		(askdir
			(prompt #WhereOnDisk)
			(help @askdir-help)
			(default @default-dest)
		)
		"FIFA"
	)
)



; now lock on to volume 'fifa'
(askdisk
	(prompt #DiskInsert1)
	(help	#DiskInsert1Help)
	(dest "fifa_1")
	(newname "fifa1")
)

; make fifa drawer & icons
(makedir fifa_dest (infos))

; at this point we have a valid destination, so we tell installer where
; the application will end up so the exit page will be correct -- also,
; the installation log file (if any) will be copied to the destination
(set @default-dest fifa_dest)

; copy all the files over
(copyfiles
	(source "fifa_1:")
	(pattern "#?")
	(dest fifa_dest)
)

(complete 30)

(copyfiles
	(source "fifa_1:HDInfo")
	(pattern "FIFA.info" )
	(dest fifa_dest)
)

(complete 32)

; now lock on to volume 'fifa_2'
(askdisk
	(prompt #DiskInsert2)
	(help	#DiskInsertHelp2)
	(dest  "fifa_2")
	(newname "fifa2")
)

; copy all the files over
(copyfiles
	(source "fifa_2:")
	(dest fifa_dest)
	(all)
)
(complete 62)

; now lock on to volume 'fifa_3'
(askdisk
	(prompt #DiskInsert3)
	(help	#DiskInsertHelp3)
	(dest  "fifa_3")
	(newname "fifa3")
)

; copy all the files over
(copyfiles
	(source "fifa_3:")
	(dest fifa_dest)
	(all)
)


(complete 99)

; add things to the s:user-startup
(startup "FIFA"
	(prompt "FIFA International Soccer MUST modify your user-startup file, it will now do so" )
	(help "FIFA will not work without this" )
	(command
		"ASSIGN fifa_1: \"" fifa_dest "\"\n"
		"ASSIGN fifa_2: \"" fifa_dest "\"\n"
		"ASSIGN fifa_3: \"" fifa_dest "\"\n"
	)
)

(complete 100)

(message
	#InstallationComplete
	(help #InstallationCompleteHelp )
)

; setup the assigns
(makeassign "fifa_1" fifa_dest)
(makeassign "fifa_2" fifa_dest)
(makeassign "fifa_3" fifa_dest)


; we don`t need this line but we`ll do it anyway
(exit)